perm filename TED.F4[2,LCS] blob sn#351023 filedate 1978-04-26 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION J(133),I(118)
C00003 ENDMK
CāŠ—;
	DIMENSION J(133),I(118)
	EQUIVALENCE (J,I)
	CALL IFILE(1,'FOO')
	CALL OFILE(21,'FOOX')
1	FORMAT(I,133A1)
5	FORMAT(133A1)
2	READ(1,1,END=4)L,J
	DO 3 K=51,118
3	J(K)=J(K+15)
	WRITE(21,5)I
	GO TO 2
4	STOP
	END